home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / prtgrid / prtdemo.frm < prev    next >
Text File  |  1995-09-06  |  3KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "PrintGrid Demo"
  5.    ClientHeight    =   4035
  6.    ClientLeft      =   2115
  7.    ClientTop       =   1995
  8.    ClientWidth     =   4635
  9.    Height          =   4725
  10.    Icon            =   PRTDEMO.FRX:0000
  11.    Left            =   2055
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   4035
  15.    ScaleWidth      =   4635
  16.    Top             =   1365
  17.    Width           =   4755
  18.    Begin Grid grdDemo 
  19.       Cols            =   5
  20.       Height          =   3375
  21.       Left            =   180
  22.       Rows            =   15
  23.       TabIndex        =   0
  24.       Top             =   180
  25.       Width           =   4275
  26.    End
  27.    Begin Label lbl1 
  28.       Caption         =   "Press Ctrl+P to Print"
  29.       Height          =   195
  30.       Left            =   180
  31.       TabIndex        =   1
  32.       Top             =   3660
  33.       Width           =   1875
  34.    End
  35.    Begin Menu mnuFile 
  36.       Caption         =   "&File"
  37.       Begin Menu mnuFilePrint 
  38.          Caption         =   "&Print"
  39.          Shortcut        =   ^P
  40.       End
  41.       Begin Menu mnuFileSep1 
  42.          Caption         =   "-"
  43.       End
  44.       Begin Menu mnuFileExit 
  45.          Caption         =   "E&xit"
  46.       End
  47.    End
  48.    Begin Menu mnuFileAbout 
  49.       Caption         =   "&About"
  50.       Begin Menu mnuAboutText 
  51.          Caption         =   " "
  52.          Index           =   0
  53.       End
  54.       Begin Menu mnuAboutText 
  55.          Caption         =   "Distributed Freely by"
  56.          Index           =   1
  57.       End
  58.       Begin Menu mnuAboutText 
  59.          Caption         =   "New Leaf Software"
  60.          Index           =   2
  61.       End
  62.       Begin Menu mnuAboutText 
  63.          Caption         =   "(New Leaf@aol.com)"
  64.          Index           =   3
  65.       End
  66.       Begin Menu mnuAboutText 
  67.          Caption         =   " "
  68.          Index           =   4
  69.       End
  70.    End
  71. End
  72. Option Explicit
  73.  
  74. Sub Form_Load ()
  75.  
  76.     Dim RowIndex As Integer
  77.     Dim ColIndex As Integer
  78.  
  79.     ' populate grid with sample data
  80.  
  81.     For RowIndex = 0 To grdDemo.Rows - 1
  82.         grdDemo.Row = RowIndex
  83.         For ColIndex = 0 To grdDemo.Cols - 1
  84.             grdDemo.Col = ColIndex
  85.             grdDemo.Text = String$(RowIndex + 1, Right(ColIndex, 1)) & " " & String$(RowIndex + 1, Right(ColIndex, 1))
  86.         Next
  87.     Next
  88.  
  89. End Sub
  90.  
  91. Sub mnuFileExit_Click ()
  92.  
  93.     Unload Me
  94.  
  95. End Sub
  96.  
  97. Sub mnuFilePrint_Click ()
  98.  
  99.     '
  100.     ' initialize PageInfo prior to calling PrintGrid
  101.     '
  102.  
  103.     ' 1440 twips = 1 inch
  104.     PageInfo.Margin = 1440
  105.     
  106.     ' must be a Printer supported font (TrueType works best)
  107.     PageInfo.FontName = "Arial"
  108.     PageInfo.FontSize = 10
  109.     PageInfo.FontBold = True
  110.     PageInfo.FontItalic = False
  111.  
  112.     ' shading for fixed rows/cols: 0 (none) to 255 (black)
  113.     PageInfo.FixedShade = 224
  114.  
  115.     Screen.MousePointer = 11
  116.  
  117.     PrintGrid grdDemo
  118.  
  119.     Screen.MousePointer = 0
  120.  
  121. End Sub
  122.  
  123.